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Exercice 1 

• Quelles seront les valeurs des variables A et B apres execution 
des instructions suivantes ? 

Var A, B : Entier 

debut 

A<- 1 

B <— A+ 3 

A^3 

Fin 

La valeur des variables est : 
A = 1 E = ? 

A = 1 B = 4 

A = 3 B = 4) 
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Exercice 2 



• Quelles seront les valeurs des variables A, B et C apres 
execution des instructions suivantes ? 

Var A, B, C :Entier; 



debut 
A 
B 
C 
A 
C 

fin 



5 

3 

A + B 

2 

B-A 



La valeur des variables est 

A = 5 E = ? 

A = 5 E = 3 

A = 5 E = 3 

A = 2 E = 3 

A = 2 B = 3 



C = ? 

C = ? 

C = 8 

C = 8 

= 1 
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Exercice 3 



• Quelles seront les valeurs des variables A et B apres execution 
des instructions suivantes ? 

Var A, B : Entier 



debut 
A 
B 
A 
B 

fin 



5 

A + 4 
A+ 1 

A-4 



La valeur des variables est 
A = 5 B = ? 

A = 5 B = 9 

A = 6 B = 9 

A = 6 B = 2 
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Exercice 4 

• Quelles seront les valeurs des variables A, B et C apres 
execution des instructions suivantes ? 

VarA, B,C:Entier; 



debut 






-3; 


B «- 


-10; 




-A+B; 


B «- 


-A+B; 




-C; 



fin 



La valeur des variables est : 

A = 3 E = ? C = ? 

A = 3 B = 10 C = ? 

A = 3 B = 10 C = 13 

A = 3 B = 13 C = 13 

A = 13 B = 13 C = 13 
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Exercice 5 

• Quelles seront les valeurs des 
des instructions suivantes ? 

Var A, B : Entier 
debut 

A^5 
B ^ 2 
A^B 

B <— A La valeur 

fin A = 5 

A = 5 
A = 2 
A = 2 
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variables A et B apres execution 



des variables est i 



B = 




B = 


2 


B = 


2 



B = 2 



Exercice 6 



Prof. 



• Ecrire un algorithme permettant d'echanger les valeurs de 
deux variables A et B. 

algorithme permutation; 

Var A, B, C : Entier; 

debut 

Lire(A); 

Lire (B); 

C^A; 

A^B; 

B^C; 
Ecrire(A); 
Ecrire(B); 
fin 
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Exercice 7 

• On dispose de trois variables A, B et C. Ecrivez un algorithme 
transferant a B la valeur de A, a C la valeur de B et a A la 
valeur de C. 

algorithme permutation; 

VarA, B,C, D : Entier; 

debut 

Lire(A); Lire (B); Lire(C); 
D^C; 
C^B; 
B^A; 
A^D; 

Ecrire(A); Ecrire(B); Ecrire(C); 
fin 
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Exercice 8 

• Que produit V algorithme suivant ? 

Var A, B, C : Caracteres 
debut 

A <- "423 " ; 

B^"12"; 

C^A+B; 

fin 



II ne peut produire qu'une erreur d'execution, puisqu'on ne peut 
pas additionner des caracteres. 
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Exercice 9 

• Que produit V algorithme suivant ? 

Var A, B, C : Caracteres 
debut 

A <- "423 " ; 

B^"12"; 

C^A&B; 

fin 



En revanche, on peut les concatener. A la fin de 1' algorithme, C 
vaudra done "42312". 
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Exercice 10 

• Quel resultat produit le programme suivant ? 

algorithme double; 
Var val, Double: entier; 
debut 

Val <- 231; 

Double <- Val * 2; 

Ecrire (Val); 

Ecrire (Double); 

fin 



On verra apparaitre a l'ecran 231, puis 462 (qui vaut 231 * 2) 
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Exercice 1 1 

• Ecrire un programme qui demande un nombre a l'utilisateur, 
puis qui calcule et affiche le carre de ce nombre. 

algorithme carre; 
Var nb, carr : Entier; 
debut 

Ecrire( "Entrez un nombre : "); 
Lire (nb); 

carr <— nb * nb; 
Ecrire ( "Son carre est : " , carr); 
fin 
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Exercice 12 

• Ecrire un programme qui lit le prix HT d'un article, le 
nombre (Particles et le taux de TVA, et qui fournit le prix total 
TTC correspondant. Faire en sorte que des libelles 
apparaissent clairement. (TTC=NA*HT*(1+TVA)) 

algorithme prix TTC d'un article; 
var nb, pht, ttva, pttc :reel: 
debut 

Ecrire ("Entrez le prix hors taxes : "); 
Lire (pht); 

Ecrire( "Entrez le nombre d' articles :" ); 
Lire (nb); 

Ecrire ("Entrez le taux de TVA :"); 
Lire (ttva); 

pttc <— nb * pht * (1 + ttva); 
Ecrire ("Le prix toutes taxes est : ", pttc); 

fin 
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Exercice 1 3 

• Ecrire un algorithme qui demande un nombre a l'utilisateur, 
et l'informe ensuite si ce nombre est positif ou negatif (on 
laisse de cote le cas ou le nombre vaut zero). 

algorithme test positif ou negatif; 
Var n : Entier; 
debut 

Ecrire ("Entrez un nombre : " ); 
Lire (n); 

Si n > 0 Alors 
Ecrire ("Ce nombre est positif); 

Sinon 

Ecrire ("Ce nombre est negatif "); 
Finsi 
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Exercice 14 

• Ecrire un algorithme qui demande deux nombres a l'utilisateur et 
1'informe ensuite si leur produit est negatif ou positif (on laisse de 
cote le cas ou le produit est nul). Attention toutefois : on ne doit 
pas calculer le produit des deux nombres. 

algorithme test produit positif ou negatif; 
Var m, n : Entier; 
debut 

Ecrire ("Entrez deux nombres : "); 
Lire (m); Lire(n); 

Si (m > 0 ET n > 0) OU (m < 0 ET n < 0) Mors 
Ecrire ("Leur produit est positif "); 

Sinon 

Ecrire ("Leur produit est negatif "); 
Finsi 

fin 



Exercice 1 5 

• Ecrire un algorithme qui demande trois noms a Putilisateur et 
l'informe ensuite s'ils sont ranges ou non dans l'ordre 
alphabetique. 

algorithme ordre alphabetique; 
Var a, b, c : Caractere 
debut 

Ecrire ("Entrez successivement trois noms : "); 
Lire(a); Lire(b); Lire(c); 

Si (a < b ET b < c) Mors 

Ecrire ("Ces noms sont classes alphabetiquement"); 

Sinon 

Ecrire ("Ces noms ne sont pas classes "); 
Finsi 

fin 
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Exercice 16 

Ecrire un algorithme a lg°rithme test positif ou negatif; 



qui demande un 
nombre a Futilisateur, 
et l'informe ensuite si 
ce nombre est positif ou 
negatif (on inclut cette 
fois le traitement du 
cas ou le nombre vaut 
zero). 



Var n : Entier; 
debut 

Ecrire ("Entrez un nombre : " ); 
Lire (n); 

Si n < 0 Alors 

Ecrire ("Ce nombre est negatif " ); 
Sinon 

Si n = 0 Alors 

Ecrire ("Ce nombre est nul " ); 
Sinon 

Ecrire ("Ce nombre est positif " ); 
Finsi 
Finsi 

fin 
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Exercice 17 

Ecrire un algorithme qui demande deux nombres a 
l'utilisateur et Pinforme ensuite si le produit est negatif ou 
positif (on inclut cette fois le traitement du cas ou le produit 
peut etre nul).^ m n . Entier; 

debut 

Ecrire ("Entrez deux nombres : "); 
Lire (m); Lire(n); 

Si (m = 0 OU n = 0) Mors 
Ecrire ("Le produit est nul "); 

Sinon 

Si (m< 0 ET n < 0) OU (m > 0 ET n > 0) Mors 

Ecrire ("Le produit est positif "); 
Sinon 

Ecrire "Le produit est negatif « 
Finsi 
Finsi 

fin 



Algorithme 



Prof.Fatima IBRAHIMI 

Exercice 18 

• Ecrire un algorithme qui demande l'age d'un enfant a l'utilisateur. 
Ensuite, il Tinforme de sa categorie : 

• "Poussin" de 6 a 7 ans 

• "Pupille" de 8 a 9 ans 

• "Minime" de 10 a 11 ans 

• "Cadet" apres 12 ans 

Peut-on concevoir plusieurs algorithmes equivalents menant a ce 
resultat ? 
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Exercice 18 



Var age : Entier; 
debut 



Si (age >= 8) Alors 



Ecrire ("Entrez l'age de l'enfant : " ); Ecrire ("Categorie Pupille " ); 



Lire (age); 
Si (age >= 12) Alors 

Ecrire ("Categorie Cadet " ); 
Sinon 

Si (age >= 10) Alors 

Ecrire ("Categorie Minime " ); pj ns j 
Sinon fj n 



Sinon 
Si (age >= 6) Alors 

Ecrire ("Categorie Poussin " ); 
Finsi 
Finsi 
Finsi 



Exercice 19 

• Ecrire un algorithme qui demande un nombre de depart, et qui 
ensuite affiche les dix nombres suivants. Par exemple, si 
l'utilisateur entre le nombre 17, le programme affichera les 
nombres de 18 a 27. 

algorithme affichage des nombres; 

Var N, i : Entier 

debut 

Ecrire ("Entrez un nombre :"); 
Lire (N); 

Ecrire ("Les 10 nombres suivants sont : "); 
Pour i de N + 1 a N + 10 faire 

Ecrire (i); 
finpour 

fin 
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• Ecrire un algorithme qui demande un nombre de depart, et qui 
calcule la somme des entiers jusqu'a ce nombre. Par exemple, si 
Ton entre 5, le programme doit calculer :l + 2 + 3+ 4 + 5 = 15 

algorithme Somme; 

Var N, i, Som : Entier; 

debut 

Ecrire ("Entrez un nombre :" ); 
Lire (N); 
Som <— 0; 
Pour i de 1 a N faire 

Som <— Som + i; 
finpour 

Ecrire ("La somme est : ", Som ); 
fin 
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Exercice 21 



• Ecrire un algorithme qui demande un nombre de depart, et qui 
calcule sa factorielle. 

algorithme Factorielle; 

Var N, i, F: Entier; 

debut 

Ecrire ("Entrez un nombre :" ); 
Lire (N); 
F<-1; 
Pour i de 2 a N faire 

F <— F * i; 
finpour 

Ecrire ("La factorielle est : ", F); 
fin 
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• Ecrire un algorithme qui demande successivement 20 nombres a 
l'utilisateur, et qui lui dit ensuite quel etait le plus grand parmi ces 
20 nombres. 

algorithme PG_NBR parmis 20; 

Var N, i, PG : Entier; 

debut 

PG^O; 

Pour i de 1 a 20 faire 

Ecrire ("Entrez un nombre :"); 

Lire (N); 

Si i = 1 ou N > PG Alors 

PG^N; 

Ecrire ("Le nombre le plus grand etait : ", PG); 
finpour fl n 



Algorithme 



Exercice 22-B 

• Modifiez ensuite 1' algorithme pour que le programme affiche de 
surcroit en quelle position avait ete saisie ce nombre. 

algorithme PG_NBR parmis 20; 

Var N, i, PG, IPG : Entier; 

debut 

PG^O; 

Pour i de 1 a 20 faire 

Ecrire ("Entrez un nombre :"); 

Lire (N); 

Si i = 1 ou N > PG Alors 

PG <— N; Ecrire ("Le nombre le plus grand etait : PG); 

IPG <— i; Ecrire (« II a ete saisi en position : ", IPG); 

FinSi fin 
finpour 
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• Reecrire 1' algorithme precedent, mais cette fois-ci on ne connait 
pas d'avance combien l'utilisateur souhaite saisir de nombres. La 
saisie des nombres s'arrete lorsque l'utilisateur entre un zero. 

algorithme PG_NBR; 



Var N, i, PG, IPG : Entier; 
debut 

-i;i* 



N <— 1; i <— 0; PG <— 0; 
tant que N ^ 0 faire 
Ecrire ("Entrez un nombre : " ); 
Lire (N); 
i <— i + 1; 
Si i = 1 ou N > PG Alors 
PG^- N; 
IPG <- i; 



FinSi 
FinTantQue 

Ecrire ("Le nombre le PG etait : ", PG); 

fin 
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Exercice 24 

• Les habitants de paris paient l'impot selon les regies suivantes : 

- les hommes de plus de 20 ans paient l'impot 

- les femmes paient l'impot si elles ont entre 18 et 35 ans 

- les autres ne paient pas d'impot 

Le programme demandera done l'age et le sexe du parisien, et se 
prononcera done ensuite sur le fait que 1' habitant est imposable. 



Exercice 24 



algorithme Impot; 
Var sex : Caractere; 
Var age : entier; 
VarCl,C2:booleen; 



Si CI ou C2Alors 



Ecrire ("Imposable"); 
Sinon 



Ecrire ("Non Imposable 



debut 



finSi 



Ecrire ("Entrez le sexe (M/F) : "); fin 
Lire (sex); 

Ecrire ("Entrez l'age: "); 
Lire (age); 

CI < — sex = "M" ET age > 20; 

C2 <- sex = "F" ET (age > 18 ET age < 35); 
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Exercice 25 

• Ecrire un algorithme saisissant 2 variables entieres qui calcule et 
affiche leur moyenne. 

algorithme calculDeMoyenne; 

Var a, b : entier; 

Var moy : reel; 

debut 

Ecrire ("Donnez la liere valeur"); 
Lire (a); 

Ecrire ("Donnez la 2ieme valeur"); 
Lire (b); 

moy <— (a+b)/2; 
Ecrire ("La moyenne est:", moy); 

fin 
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Exercice 26 

• Saisir 3 entiers a, b, c et determiner dans R les racines de 
l'equation ax 2 + bx + c = 0. 

algorithme ResolutionEquation; 
Var a, b, c, delta : reel; 
debut 

Ecrire ("Donnez la valeur de a"); 
Lire (a); 

Ecrire ("Donnez la valeur de b"); 
Lire(b); 

Ecrire ("Donnez la valeur de c"); 
Lire (c); 
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si a=0 Alors 

Ecrire ('Equation de ler ordre'); 
si b=0 Alors 
si C=0 alors 
Ecrire (' Tous reel est solution'); 
sinon 

Ecrire ('Pas de solution'); 
finsi 
sinon 

Ecrire ('Solution unique x=\ -C/B); 

finsi 
sinon 

delta <- B*B-4*A*C; 



si delta <0 alors 

Ecrire ('Pas de solution'); 

sinon 

si delta =0 alors 
Ecrire (' Solution double : xl=x2=\- 
B/2*A); 

sinon 
delta <— racine (delta) 
Ecrire ('Deux solutions xl=',(-B- 
(delta))/2*A, 4 ;x2=',(- 
B+(delta))/2*A); 

finsi 
finsi 
finsi 
fin 
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Exercice27 

• Ecrire un algorithme qui permet donner le resultat d'un etudiant a 
un module sachant que ce module est sanctionne par une note 
d'oral de coefficient 1 et une note d'ecrit de coefficient 2. La 
moyenne obtenue doit etre superieure ou egale a 10 pour valider le 
module. 
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Exercice27 

algorithme resultatEtudiant; 
VarNl,N2, Moy : reel; 
debut 

Ecrire ( 6 Donnez la note d'oral'); 
Lire (Nl); 

Ecrire (' Donnez la note d'ecrit'); 
Lire (N2); 

Moy <- (Nl+2*N2)/3 
si moy <10 Alors 

Ecrire(" Module non valide "); 
sinon 

Ecrire(" Module valide "); 

finsi 

fin 
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Exercice28 

• Ecrire l'algorithme permettant d'imprimer le triangle suivant, le 
nombre de lignes etant donne par l'utilisateur : 
1 

12 

123 

1234 

12345 

123456 

1234567 
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Exercice28 

algorithme Triangle; 
Var j, n, i : entiers; 
debut 

Ecrire ('Donnez le nombre de ligne du triangle') 
Lire (n); 
pour i= 1 a n faire 
pour j=l a i faire 

Ecrire(j) 
fin pour 
fin pour 

fin 
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• Ecrire un algorithme qui demande un nombre , calcule et affiche la 
somme V/ 3 

7 = 1 

algorithme SommeCubique; 
Var i, n, som : entier; 
debut 

Ecrire (' Donnez n'); 
Lire (n); 
som <— 0; 
pour i=l an faire 

som <— som+i*i*i 
finpour 

Ecrire (' La somme cubiques des n entiers est :',som); 

fin 



Algorithme 



Exercice30 

• Donnez le resultat de la multiplication de deux nombres en ne 
faisant que des additions. 

algorithme multiplication; 

Var a, b, i, res : Entier; 

debut 

Ecrire (" donnez les valeurs a et b" ); 
Lire(a); Lire(b); 
res <— 0; 

pour i de 1 a b faire 

res <— res + a; 
finpour 

Ecrire (" la multiplication de a*b :" , res); 

fin 



Algorithme 



Prof.: 



Exercice31 

• Ecrire un algorithme qui declare et remplisse un tableau contenant 
les six voyelles de 1' alphabet latin. 

algorithme Affichage des voyelles; 

Tableau Tab(5) : Caractere 



debut 



Tab (0) 
Tab (1) 
Tab (2) 
Tab (3) 
Tab (4) 
Tab (5) 



'a " 
'e " 
'i " 
'o " 
'u " 

<y " 



fin 
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Exercice32 

• Ecrire un algorithme qui declare un tableau de 9 notes, dont on fait 
ensuite saisir les valeurs par l'utilisateur. 

algorithme Saisi des notes; 

Tableau Note(8) : entier; 

Var i : entier; 

debut 

Pour i de 0 a 8 faire 

Ecrire ("Entrez la note numero ", i + 1); 

Lire (Notes(i)); 
finpour 
fin 
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Exercice33 

• Ecrivez un algorithme permettant a l'utilisateur de saisir un 
nombre quelconque de valeurs, qui devront etre stockees dans un 
tableau. L'utilisateur doit done commencer par entrer le nombre de 
valeurs qu'il compte saisir. II effectuera ensuite cette saisie. Enfin, 
une fois la saisie terminee, le programme affichera le nombre de 
valeurs negatives et le nombre de valeurs positives. 
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algorithme Valeur_neg_pos; 

Var n, nbpos, nbneg : entier; 

Tableau T( ) : entier ; 
debut 

Ecrire ( "Entrez le nombre de valeurs : " ); 

Lire (n); 

Redim T(n-l); 
nbpos <— 0; 
nbneg <— 0; 

Pour i de 0 a n - 1 faire 
Ecrire ("Entrez le nombre n° ", i); 



Lire T(i); 

Si T(i) > 0 alors 

nbpos <— nbpos + 1 ; 
Sinon 

nbneg <— nbneg + 1 ; 
Finsi 



finpour 

Ecrire ("Nombre de valeurs positives 
nbpos); 

Ecrire ("Nombre de valeurs negatives 



nbneg); 
fin 
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• Ecrivez un algorithme calculant la somme des valeurs d'un tableau 
(on suppose que le tableau a ete prealablement saisi). 

algorithme somme; 

Var i, som, N : entier; 

Tableau T() : entier; 
debut 

Ecrire ( "Entrez le nombre de valeurs : " ); 
Lire (n); 
Redim T(n-l); 

som <— 0; 
Pour i de 0 a n - 1 faire 

som <— som + T(i); 
finpour 

Ecrire ("Somme des elements du tableau : ", som); 
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Exercice35 

• Ecrivez un algorithme constituant un tableau, a partir de deux 
tableaux de meme longueur prealablement saisis. Le nouveau 
tableau sera la somme des elements des deux tableaux de depart. 



Tableau 1 : 





4 


8 


7 


9 


1 


5 


A 


6 


Tableau 2 




















7 


6 


5 


2 


1 


3 


7 


4 


Tableau a constituer : 




11 


14 


12 


11 


2 


8 


11 


10 
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Exercice35 

algorithme somme; 
Var i, n : entier; 

Tableaux Tl(), T2(), T3() : entier; 
debut 

Ecrire ( "Entrez le nombre de valeurs : " ); 
Lire (n); 
Redim Tl(n-l); 

Redim T2(n-1); 

Redim T3(n-1); 

{Lecture des valeur des deux tableau} 
Pour i de 0 a n - 1 faire 
T3(i)^Tl(i) + T2(i); 
finpour 
fin 



Exercice36 

Toujours a partir de deux tableaux precedemment saisis, ecrivez 
un algorithme qui calcule le schtroumpf des deux tableaux. Pour 
calculer le schtroumpf, il faut multiplier chaque element du 
tableau 1 par chaque element du tableau 2, et additionner le tout. 
Par exemple si Ton a : 



Tableau 1 : 
Tableau 2 : 




Le Schtroumpf sera : 

6*2 + 6*5 + 6*8 + 6*4 + 7*2 + 7*5 + 7*8 + 7*4 = 247 
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algorithme somme; 

Var i, j, Nl, N2, S : entier; 

Tableaux T1Q, T2() : entier; 
debut 

Ecrire ( "Entrez la taille de Tl et T2: " ); 
Lire(Nl); Lire (N2); 
RedimTl(Nl-l); Redim T2(N2-1); 

S^O; 

Pour i de 0 a Nl - 1 faire 
Pour j de 0 a N2 - 1 faire 

S<-S + Tl(i)*T2Q); 
finpour 

finpour 

Ecrire( "Le schtroumpf est : ", S); 
fin 
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• Ecrivez un algorithme qui permette la saisie d'un nombre 
quelconque de valeurs. Toutes les valeurs doivent etre ensuite 
augmentees de 1, et le nouveau tableau sera affiche a l'ecran. 

algorithme incrementation du tableau; 

Var n, i : entier; 

Tableau T() : entier; 
debut 

Ecrire ("Entrez le nombre de valeurs : "); 

Lire ( n ); Ecrire ("Nouveau tableau :"); 

Redim T(n-l); Pour i de 0 a n - 1 faire 

Pour i de 0 a n - 1 faire T(i) <_ T(i) + 1 ; 

Ecrire ("Entrez le nombre n° ", i + 1); Ecrire x(i); 

Lire T(i); finpour 
finpour fj n 
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Exercice38 

Ecrivez un algorithme permettant, toujours sur le meme principe, a 
l'utilisateur de saisir un nombre determine de valeurs. Le 
programme, une fois la saisie terminee, renvoie la plus grande 
valeur en precisant quelle position elle occupe dans le tableau. On 
prendra soin d'effectuer la saisie dans un premier temps, et la 
recherche de la plus grande valeur du tableau dans un second 
temps. 
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Exercice38 

algorithme Afficher Max; 
Var n, i, PosMax: entier; 
Tableau T() : entier; 
Debut 

Ecrire ("Entrez le nbr de valeurs :"); 

Lire (n); 

Redim T(n-l); 
Pour i de 0 a n - 1 faire 

Ecrire ("Entrez le nbr n° ", i + 1); 
Lire (T(i)); 
finpour 

PosMax <— 0: 
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Pour i de 1 a n - 1 faire 
Si T(i) > T(PosMax) alors 

PosMax <— i; 
finsi 

finpour 

Ecrire ( "Element le plus grand : 
T(PosMax)); 

Ecrire ("Position de cet element 

PosMax); 

Fin 
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• Toujours et encore sur le meme principe, ecrivez un algorithme 
permettant, a l'utilisateur de saisir les notes d'une classe. Le 
programme, une fois la saisie terminee, renvoie le nombre de ces 
notes superieures a la moyenne de la classe. 
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algorithme Afficher note superieur a la moyenne; 
Var n, i, Som, Moy, nsup : entier; 
Tableau T() : entier; 
debut 

Ecrire ("Entrez le nombre de notes a saisir :"); 



Lire (n); 

Redim T(n-l); 

Pour i de 0 a n - 1 faire 

Ecrire ("Entrez nbr n° ", i + 1); 

Lire (T(i)); 
finpour 
Som <— 0; 

Pour i de 0 a n - 1 faire 

Som <— Som + T(i); 
finpour 



Moy <— Som / n; 
nsup <— 0; 

Pour i de 0 a n - 1 faire 

Si T(i) > Moy Alors 
nsup <— nsup + 1 ; 

finsi 
finpour 

Ecrire (nsup, " eleves depassent la 

moyenne de la classe "); 

fin 
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Exercice 40 

Soit un tableau T a deux dimensions (12, 8) prealablement rempli 
de valeurs numeriques. Ecrire un algorithme qui recherche la plus 
grande valeur au sein de ce tableau. 
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algorithme Afficher Max; 
Var i, j, imax, jmax: entier; 
Tableau T( 12, 8) : entier; 
debut 

imax <— 0; jmax <— 0; 
Pour i de 0 a 1 2 f aire 
Pour j de 0 a 8 faire 
Si T(i,j) > T(imaxjmax) Alors 
imax <— i; 
jmax^j; 
finSi 
finpour 
finpour 

Ecrire ("Le plus grand element est ", T(iMax, jMax) 
Ecrire ("II se trouve aux indices ", iMax, "; "JMax) 

fin 
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• Ecrire l'algorithme effectuant le decalage des elements d'un 
tableau. 



• Tableau initial 


D 


E 


C 


A 


L 


A 


G 


E 




• Tableau modifie (decalage a gauche) 


E 


C 


A 


L 


A 


G 


E 


D 
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algorithme decalage; 
Var tmp: caractere; 
Var i, n : entier; 
Tableau T() : entier; 
Debut 

Ecrire (" donnez la valeur n"); 
Lire(n); 

Redim (T(n- 1)); 
tmp <- T(0); 
Pour i de 0 a n-2 Faire 
T(i)<-T(i+1); 

finpour 
T(n - 1) <— tmp; 
fin 
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• Ecrire un algorithme triant un tableau par selection. 

D on cherche 1' element de plus petite valeur dans le tableau 
D le placer en tete du tableau 

n recommencer avec le tableau moins la premiere case 



14 


"3 


9 


2 


5 












2 




9 


14 


5 




2 


5 


9 


14 


5 



>< 



2 


"5 

3 


5 


14 


9 


X 


2 


3 


5 


9 


14 
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algorithme tri selection; 

Var i, n, tmp : entier; 

Tableau T() : entier; 

debut 

pour i de 0 a n - 2 faire 

mi <— i; 

pour j de i+1 a n - 1 faire 
Si T(j) < T(mi) alors 
tmp <— T(mi); 
T(mi) <- TO); 
T(j)^ tmp; 
finsi 
finpour 
finpour 
fin 
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Exercice 43 

• Ecrire un algorithme qui permet d'inverser un tableau. 

algorithme inversion tableau; 

Var i, n, tmp : entier; 

Tableau T() : entier; 

debut 

Ecrire (" donner la valeur de n" ); 
Lire (n); 
Redim (T(n-l)); 
pour i de 0 a n/2 faire 
tmp <— T(i); 

T(i)<-T((n-l)-i); 
T((n-1) - i) <— tmp; 
finpour 
fin 
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• Ecrire 1' algorithme permettant d'effectuer la multiplication de 
deux vecteurs de taille N connue a l'avance et d'afficher le 
resultat. 

• Rappel : Soient Y 1 et V 2 deux tableaux. 
Vi V, 





a 


b 


c 


d 






r 
i 


g 


ii 


■ 

i 


■ 

j 


V * V = 

1 v 2 


a*f 


+ b*g + 


c*b 




d*i 


+ e*j 
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algorithme produit vecteur; 
Var i, n, res : entier; 
Tableau V1Q, V2() : entier; 
debut 

Ecrire ( "donner la valeur n " ); 
Lire (n); 

Redim (VI (n)); Redim (V2(n)); 
Res <- 0; 
Pour i de 0 a n- 1 Faire 

Res <- Res + VI (i) * V2(i); 
Fin Pour 
Ecrire ( " Le resultat est ", Res); 
fin 
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• Ecrire un algorithme qui insere un element donne X a la position 
K d'un tableau. 



n <— n + 1; — 
Ecrire ( " entrer 1' element a aj outer " ); 
Lire (elt); 

Ecrire ( " entrer sa position " ); 
Lire (pos); 



algorithme insertion_elt_X; 
Var i, n, elt, pos, tmp: entiers; 
Tableau T (): entier; 
debut 

{ lecture du tableau } 



Pour i de pos a n - 1 faire 



fin 



finpour 



tmp <— T(i); 
T(i) <- elt; 
elt <— tmp; 
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• Soit T un tableau ranges dans l'ordre croissant. Ecrire un 
algorithme qui insere un element donne X dans le tableau T 
en respectant l'ordre croissant? 
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algorithme inserer X; 
Var i, j, n, elt, tmp : entiers; 
Tableau T() : entier; 
debut 

Ecrire("entrez la taille du tab:"); 
Lire(n); 

Redim (T(n- 1)); 
Pour i de 0 a n - 1 faire 

Ecrire("entrez l'element:", i+1); 

Lire(T(0)); 

finpour 

n <— n + 1; 

Ecrire("entrez l'element X:"); 
Lire(elt); 
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T(n-l)<-elt; 

Pour i decroissant de n - 1 a 1 
faire 

pour j de 1 a i faire 

si T(j-l)>T(j)alors 
tmp <- T(j - 1); 
T(j-1)<-T(j); 
T(i) <— tmp; 
finsi 
finpour 
finpour 

Pour i de 0 a n - 1 faire 
Ecrire (T(i)); 
finpour 
fin 
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• Donner un algorithme pour supprimer un element donne d'un 
tableau d'entiers. 

algorithme Suppression d'un elt; 

Var i , n, elt, Temp :Entiers ; 

Tableau T() :Entier; 

debut 

{Lecture et remplissage du tableau} 
Ecrire("Entrez l'element a supprimer :"); 

Lire(elt); pour i de pos a n - 1 faire 

pour i de 0 a n - 1 faire T(i) <— T(i +1); 



si elt = T(i) alors 
Pos <— i; 

finsi 
finpour 



finpour 
pour i de 0 a n - 2 faire 

Ecrire (T(i) ); 
finpour 



fin 
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• Soit T un tableau de N entiers. Ecrire 1' algorithme qui determine le 
plus grand element de ce tableau. 



algorithme Grand element; 
Var i , max, n : entier; 
Tableau T () : entier ; 
debut 

Ecrire("Entrez la taille du tab"); 
Lire (n); 

Redim (T(n- 1)); 

pour i de 0 a n - 1 faire 
Ecrire ("Entrez l'element:" ,i); 
Lire (T(i) ); 

finpour 



max<— T (0); 
i<- 0; 
Repeter 
i<-i+ 1; 
si T (i) > max alors 

Max <- T (i); 
finsi 

Jusqu'a i = (n - 1) 

Ecrire (" Le plus grand element est 

: ", max); 

fin 
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• Soit 
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• Proposez un algorithme permettant de calculer a la fois le 
minimum et le maximum d'un tableau. 



Algorithme CalculMaxMin; 
Var i, j, n, min, max : Entier; 
Tableau T() : reel; 
debut 

max <— T(0); 

min <— T(0); 



pour i de 1 a n - 1 faire 
si T(i) < min alors 

min <— T(i); 
sinon 
si T(i) > max alors 

max <— T(i); 
finsi 
finsi 
finpour 

Ecrire (" le max est : ", max, "le 

min est :" , min); 

fin 
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• Soit T un tableau de N reels. Ecrire un algorithme qui permet de 
calculer le nombre des occurrences d'un nombre X (c'est-a-dire 
combien de fois ce nombre X figure dans le tableau T). 

algorithme NBR occurences; 

Var i, n, X, cpt: entier; 

Tableau T (): entier; 

debut 

Ecrire ( "donner le nombre X " ); 
Lire (X); 

cpt <— 0; 
Pour i de 0 a n- 1 Faire 
si T (i) =X alors 
cpt <— cpt + 1 ; 
finsi 
finpour 

Ecrire ( " Le nombre d' occurrences est ", cpt); 
fin 
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Exercice 52 

• Ecrire un algorithme qui calcule le nombre d'entiers pairs et le 

nombre d'entiers impairs d'un tableau d'entiers. 
algorithme compter nbr pairs et nbr impairs; 

Var i, n, nbP, nblmp: entier; 

Tableau T (): entier; 

debut 

nbP <- 0; 
nblmp <— 0; 
Pour i de 0 a n- 1 Faire 
si T(i) MOD 2 = 0 alors 
nbP^nbP+ 1; 

Sinon 

nblmp <- 

finsi 
finpour 



nblmp + 1 ; 



Ecrire ( " Le nombre d'entiers pairs est ", nbP); 
Ecrire ( " Le nombre d'entiers impairs est ", nblmp); 
fin 
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• Soit un tableau T(n), ecrire un algorithme qui calcule VMEP 
(valeur moyenne des elements positifs), VMEN (valeur 
moyenne des elements negatifs) et NEM (nombre d f elements 
nuls). 
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Algorithme Calcul VM; 

Var i, n, nPos, nNeg, VmoyP, 
VmoyN, nNull : entier; 

Var somP, somN : entiers; 

Tableau T ( ) : entier; 

debut 

nPos <— 0; nNeg <— 0; 
nNull <- 0; 

somP <— 0; somN <— 0; 
pour i de 0 a n - 1 faire 
si t(i) = 0 Alors 

nNull <- nNull + 1 ; 



si t(i) > 0 Alors 

nPos <— nPos + 1 ; 

- somP + T(i); 



nNeg + 1 ; 
somN + T(i); 



somP <- 
sinon 

nNeg <r 
somN < 
finsi 
finsi 
finpour 

VmoyP <— somP/nPos; 
VmoyN <— somN/nNeg: 



sinon Ecrire( "Le nombre d'elements nuls est : " , nNull ); 

Ecrire( M La valeur moyenne des elements positifs est: " 
Ecrire( M La valeur moyenne des elements negatifs est: 1 
fin 



VmoyP); 
, VmoyN); 
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Donner un algorithme qui prend en argument un tableau d'entiers 
de taille n et qui le modifie de tels sorts que tous les entiers pairs 
se retrouvent avant les entiers impairs. 



Var i , n, j : Entiers 
Tableau T (), Tres() :Entier 
debut 

pour i de 0 a n - 1 faire 
si T(i) MOD 2 = 0 alors 

Tres(j )«-T(i); 

finsi 
finpour 



pour i de 0 a n - 1 faire 
si T(i) MOD 2^0 alors 

Tres(j) <- T(i); 

finsi 
finpour 

pour i de 0 a n - 1 faire 

Ecrire ( Tres(i)); 
finpour 
fin 
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On dispose des notes de 25 eleves ; chaque eleve peut avoir une ou 
plusieurs notes mais toujours au moins une. Ecrire un programme 
permettant d'obtenir la moyenne de chaque eleve lorsqu'on lui 
fournit les notes. On veut que les donnees et les resultats se 
presentent ainsi : 



-Les parties italiques 
correspondent aux donnees 
tapees par l'utilisateur. 

-La valeur -1 sert de critere 
de fin de notes pour chaque 
eleve. 



Notes de 1" eleve numero 1 
12 
12 
-1 

Notes de Tel eve numero 2 



Notes de V eleve numero 25 

15 

-1 

Movennes 

Eleve numero 1:11 



Eleve numero 25 : 15 
Moyenne de la classe : 12.3 



